unit SaleQuoteList;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseChildcxGridForm, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore,
  dxSkinsDefaultPainters, cxStyles, dxSkinscxPCPainter, cxCustomData,
  cxFilter, cxData, cxDataStorage, DB, cxDBData, Menus, DBActns,
  StdActns, ActnList, ImgList, cxGridLevel, cxClasses, cxGridCustomView,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
  cxLabel, ExtCtrls, BaseBillList,
  GlobalVar, GlobalInterface, MisString, cxGridCustomPopupMenu,
  cxGridPopupMenu, MemDS, DBAccess, Uni, cxNavigator, Vcl.ComCtrls, dxCore,
  cxDateUtils, System.Actions, System.ImageList, cxTextEdit, cxMaskEdit,
  cxDropDownEdit, cxCalendar, Vcl.StdCtrls, cxButtons, cxCheckBox;

type
  TfrmSaleQuoteList = class(TfrmBaseBillList)
    procedure FormCreate(Sender: TObject);
    procedure PopmnuNewRecordClick(Sender: TObject);
  private
    { Private declarations }
  protected
  public
    { Public declarations }
  end;

var
  frmSaleQuoteList: TfrmSaleQuoteList;

implementation

uses SaleQuoteWizard;

{$R *.dfm}

{ TfrmPurCtrlList }


procedure TfrmSaleQuoteList.FormCreate(Sender: TObject);
begin
  FBType := btSaleQuote;
  inherited;
end;

procedure TfrmSaleQuoteList.PopmnuNewRecordClick(Sender: TObject);
begin
 inherited;
  frmSaleQuoteWizard:= TfrmSaleQuoteWizard.Create(nil);
  if (frmSaleQuoteWizard.ShowModal = mrOk) then
    LocateRecord(-1, 6);
  FreeAndNil(frmSaleQuoteWizard);
end;

end.

